home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / graphics / fade2 / sample.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1994-10-01  |  2.2 KB  |  76 lines
  1. VERSION 2.00
  2. Begin Form frmMain 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3564
  6.    ClientLeft      =   168
  7.    ClientTop       =   1932
  8.    ClientWidth     =   4176
  9.    Height          =   4032
  10.    Left            =   96
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3564
  13.    ScaleWidth      =   4176
  14.    Top             =   1536
  15.    Width           =   4320
  16.    Begin Frame fraGradient 
  17.       BackColor       =   &H00C0C0C0&
  18.       Caption         =   "Gradient Types"
  19.       Height          =   1452
  20.       Left            =   1440
  21.       TabIndex        =   0
  22.       Top             =   1440
  23.       Width           =   2052
  24.       Begin OptionButton optGradient 
  25.          BackColor       =   &H00C0C0C0&
  26.          Caption         =   "Horizontal"
  27.          Height          =   372
  28.          Index           =   2
  29.          Left            =   120
  30.          TabIndex        =   3
  31.          Top             =   960
  32.          Width           =   1332
  33.       End
  34.       Begin OptionButton optGradient 
  35.          BackColor       =   &H00C0C0C0&
  36.          Caption         =   "Vertical"
  37.          Height          =   372
  38.          Index           =   1
  39.          Left            =   120
  40.          TabIndex        =   2
  41.          Top             =   600
  42.          Width           =   1332
  43.       End
  44.       Begin OptionButton optGradient 
  45.          BackColor       =   &H00C0C0C0&
  46.          Caption         =   "Diagonal"
  47.          Height          =   372
  48.          Index           =   0
  49.          Left            =   120
  50.          TabIndex        =   1
  51.          Top             =   240
  52.          Value           =   -1  'True
  53.          Width           =   1332
  54.       End
  55.    End
  56. Option Explicit
  57. Sub Form_Load ()
  58.     Move 0, 0, Screen.Width, Screen.Height * .85
  59. End Sub
  60. Sub Form_Paint ()
  61.     If Me.WindowState <> 1 Then
  62.         If optGradient(0).Value Then
  63.             Call FadeForm(Me, 0)
  64.         ElseIf optGradient(1).Value Then
  65.             Call FadeForm(Me, 1)
  66.         ElseIf optGradient(2).Value Then
  67.             Call FadeForm(Me, 2)
  68.         Else
  69.             Call FadeForm(Me, 666)
  70.         End If
  71.     End If
  72. End Sub
  73. Sub optGradient_Click (index As Integer)
  74.     Call FadeForm(Me, index)
  75. End Sub
  76.